<%

Function torneio_lista_grupos(conexao, id, grupos)

		Dim i, j
		
		str = "Select id, fase, anterior FROM torneios_grupos where id_torneio="&id&" order by fase asc"
    		Set rs = conexao.Execute(str)	
		
		i=0
		
		grupos(0,0) = 0
		grupos(0,1) = 0
		grupos(0,2) = 0
		grupos(0,3) = 0
		
		Do while not rs.eof
		
				i=i+1
				
				grupos(i,0) = rs("id")
				grupos(i,1)=0
				grupos(i,2)=0
				grupos(i,3) = rs("fase")
				if rs("fase")>1 then 
						str = "Select id FROM torneios_grupos where id_torneio="&id&" and fase="&(rs("fase")-1)&" and nivel="&rs("anterior")&" order by id desc"
						Set rs2 = conexao.Execute(str)	
						for j=1 to i-1
								if int(rs2("id"))=int(grupos(j,0)) then
										grupos(i,1)=j
										j=i										
								End If
						next 										
				End IF
				
				rs.MoveNext
		
		Loop
		
		torneio_lista_grupos = i

End Function

Function torneio_lista_grupos_clube(conexao, id, id_clube, grupos)

		Dim i, j
		
		str = "Select id, fase, nivel, posicao FROM torneios_grupos where id_torneio="&id&" order by fase asc"
    		Set rs = conexao.Execute(str)	
		
		i=0
		
		Do while not rs.eof

				
				str = "Select id FROM torneios_jogos where id_grupo="&rs("id")&" and (id_clube_1="&id_clube&" OR id_clube_2="&id_clube&")"
   			Set rs2 = conexao.Execute(str)
				
				if not rs2.eof then
				
					grupos(i,0)=rs("id")
					grupos(i,1)=rs("fase")
					grupos(i,2)=rs("nivel")
					grupos(i,3)=rs("posicao")
					
					i=i+1						
				
				End If		
				
				rs.MoveNext
		
		Loop
		
		torneio_lista_grupos_clube = i

End Function

%>
